Option Explicit
Sub B_Sample016()
    Dim myRng As Range
    Dim myHyps As Hyperlinks
    Dim myHyp As Hyperlink
    Set myRng = Range("A1")			'Nxs
    'ǳƨ즹
    With myRng
        Set myHyps = .Hyperlinks
        If myHyps.Count > 0 Then
           Set myHyp = myHyps(1)
            MsgBox myHyp.Address
        Else
            MsgBox "nS]wWs"
        End If
    End With
    Set myHyp = Nothing				'
    Set myHyps = Nothing
    Set myRng = Nothing
End Sub
